unit YetkisizPersonel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FormClassEmptyList, Menus, DB, ADODB, ImgList, XPMan, StdActns,
  ActnList, StdCtrls, Buttons, fcLabel, Grids, Wwdbigrd, Wwdbgrid,
  ExtCtrls, fcStatusBar, Mask, wwdbedit, Wwdotdot, Wwdbcomb, wwdblook;

type
  TfmYetkisizPersonel = class(TfmFormClassEmptyList)
    cbYetki: TwwDBComboBox;
    lcbPersonel: TwwDBLookupCombo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmYetkisizPersonel: TfmYetkisizPersonel;

implementation
uses data;   
{$R *.dfm}

procedure TfmYetkisizPersonel.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
  fmYetkisizPersonel := nil;
end;

procedure TfmYetkisizPersonel.FormShow(Sender: TObject);
begin
  inherited;
  OpenQueryOnDataSet(aqEntry.SQL.Text, aqEntry);
end;

end.

